Extension { #name : 'RGMetaclassDefinition' }

{ #category : '*Manifest-Core' }
RGMetaclassDefinition >> arrayStringForManifest [
	| array |
	array := Array new: 2.
	array at: 1 put: self class asString asSymbol.
	array
		at: 2
		put:
			{(name asSymbol).
			(self instanceSide asString asSymbol)}.
	^ array
]

{ #category : '*Manifest-Core' }
RGMetaclassDefinition class >> manifestReadOn: aArray [

	^ (self named:( aArray at:1))
		baseClass: (RGClassDefinition named: (aArray at:2))
]
